soubory pascal

program ofiko;
Uses classes, sysutils;

var T: text;
    S: string;
    C: char;
    nabidka: byte;

/////////////////Podprogramy/////////////////
Procedure prepsat(var T: text);
Begin
 Rewrite(T);
 Repeat
  write('Dalsi radek? A/N: '); readln(C);
  if C = 'A' then
   begin
    Writeln('Napis radek: '); readln(S);
    Writeln(T,S);
   end;
 Until C = 'N';
 Close(T);
End;

Procedure precist(var T: text);
Begin
 Reset(T); writeln('Obsah souboru: ');
 While not eof(T) do
  Begin
   Readln(T,S); writeln(S);
  End;
 Writeln;
Close(T);
End;

Function kolikradek(var T: text):byte;
begin
  reset(T);
  kolikradek:=0;
  while not eof(T) do
   begin
    inc(kolikradek);
    readln(T,S);
   end;
  close(T);
end;

Procedure pridatradek(var T: Text);
begin
  reset(T);
  while not eof(T) do
   begin
    readln(T,S);
   end;
  writeln('Co vlozit na konec: '); readln(S);
  writeln(T,S);
  close(T);
end;
/////////////////Konec podprogramů/////////////////
Begin
 assign(T,'soubor.txt');
 If not fileexists('soubor.txt') then prepsat(T);

 writeln;
 precist(T);
 writeln;

 /////////////////Nabídka/////////////////
 repeat
   writeln('Co delat?');
   writeln('0 ... Nic.');
   writeln('1 ... Prepsat.');
   writeln('2 ... Pridat radek.');
   writeln('3 ... Precist soubor.');
   write('Vase volba: '); readln(nabidka);
   writeln;
   case nabidka of
     1: prepsat(T);
     2: pridatradek(T);
     3: Precist(T);
   end;
 until nabidka = 0;

 writeln; writeln('Konec programu, stisknete ''ENTER'' pro konec');
 readln
End.