Witam. Mam zrobić zadanko z Pascala z plików tekstowych. Jestem noga z programowani niestety i mam problem.

Takie mam polecenie :

Napisz program który odczyta zawartość pliku tekstowego osoby.txt i zapisz dane do pliku osoby.dta.

Plik osoby.dta będzie plikiem elementowym oraz będzie się składał z elementów TOsoba.

TOsoba jest typem rekordowym o strukturze:

type
TOsoba = rekord
imie, nazwisko: string;
wzrost: byte;
rok_ur: integer
end;

Dane w pliku tekstowym (osoby.txt) są ułożone następująco (można utworzyć za pomocą notatnika lub programu jak na poprzednich zajęciach, jedna dana w jednym wierszu):

Franciszek
Kobylka
171
1932
Apolonia
Zyga
159
1935

W pliku osoby.dta mają się znaleźć:

Wszystkie osoby z pliku tekstowego ale ich imiona i nazwiska / dt. urodzenia i wzrost należy zapisać przy pomocy dużych liter.

Dane w pliku osoby.txt dobrać tak, aby przynajmniej jeden rekord znalazł się w pliku osoby.dta.

Zawartość pliku osoby.dta wyświetlić na ekranie.



-----------------------------------------------

Na razie zdołałem zrobić tyle i nie wiem jak to wykończyć :(

program Odczyt;
uses crt


const
katalog = 'C:\dev';
zrodlo = 'Osoby.txt';
wynik = 'Osoby.dta';


type
TOsoba = record
imie, nazwisko: string;
wzrost: byte;
rok_ur: integer
end;
var
F: file of TOsoba;
G: Text;
Osoba: TOsoba;

begin
assign (F, 'C:\dev\Osoby.txt')
while not oef (G) do
begin
with osoba do
begin
readln(G, imie);
readln(G, nazwisko);
readln(G, wzrost);
readln(G, rok_ur);
end;
write (F, osoba);
end;
assign (plik, 'C:\dev\osoby.dta');

while not eof(R) do