Reikia pagalbos su paskaliu

Taigi, rašiau programą bet užstrigau vienoj vietoj, reikia, kad ties kiekvienu nauju ligoniu suskaičiuotų sumą už medikamentus. (turbūt reikia ir ligonius išrikiuoti pagal abėcėlę).

kodas:

program Bevard;

uses crt;

type IR1 = record
   SK, MP, DA, LP, MV, LIP : string[15];
   K1:integer;
   KA : real;
   end;
   FA1 = file of IR1;

var Nr: integer;
   IR : IR1;
   FA : FA1;
   suma : real;
   V: byte;

procedure ivedimas1;
begin
   clrscr;
     WriteLn ('Įveskite skyrių');
     ReadLn (IR.SK);
     WriteLn ('Įveskite medikamento pavadinima');
     ReadLn(IR.MP);
     WriteLn ('Įveskite ligos pavadinimą');
     ReadLn(IR.LP);
     WriteLn ('Įveskite ligonio pavardę');
     ReadLn(IR.LIP);
     WriteLn ('Įveskite medikamento kiekį');
     ReadLn(IR.K1);
     WriteLn ('Įveskite medikamento matavimo vienetą');
     ReadLn(IR.MV);
     WriteLn ('Įveskite medikamento vieneto kainą');
     ReadLn(IR.KA);

end;

procedure ivedimas;
var a : string[1];
begin
    rewrite(FA);
    a := 't';

while a <> 'n' do
   begin
     ivedimas1;
     write(FA, IR);
     Write('Duomenys irasyti? Norite irasyti dar? (T/N) ');
     readln(a);
   end;
   close(FA);
   clrscr;
end;

procedure  Spausdinimo;
 begin
   clrscr;
   Reset (FA);
   WriteLn ('_______________________________________________________________________________');
   WriteLn ('|Skyrius|  Medikamento  |      Ligos      |   Ligonio   |Kiekis|Matavimo|Vnt. |');
   WriteLn ('|       |  pavadinimas  |   pavadinimas   |   pavardė   |      |   vnt. |kaina|');
   WriteLn ('_______________________________________________________________________________');
   While not eof (FA) do
    begin
     Read (FA, IR);
     WriteLn ('|',IR.SK:7,'|', IR.MP:15,'|', IR.LP:17,'|', IR.LIP:13,'|', IR.K1:6,'|', IR.MV:8,'|', IR.KA:5:2,'|');
   WriteLn ('_______________________________________________________________________________');
     end;
 Close (FA);
end;

procedure redagavimas2;
var eil: integer;
a : string[1];
begin
a := 't';
while a <> 'n' do
begin
writeln('Kurios eilutės duomenis norite pakeisti?');
readln(eil);
seek(FA,eil -1);
read(FA,IR);
seek(FA,eil -1);
ivedimas1;
write(FA,IR);
writeln;
writeln('Pakeista. Ar norite pekeisti kitos eilutės duomenis?(T/N) ');
readln(a);
writeln;
clrscr;
end;
end;

procedure redagavimas1;
var eil: integer;
a : string[1];
begin
reset (FA);
a:='t';
while a <> 'n' do
begin
writeln('Po kurio įrašo norite įvesti naują?');
readln(eil);
if eil <= FileSize(FA) then V:= FileSize(FA) else close(FA);
while V <> eil do
begin
seek(FA,V - 1);
read(FA,IR);
seek(FA,eil);
write(FA,IR);
V:= V - 1;
end;
ivedimas1;
seek(FA,eil);
write(FA,IR);
write('Ar norite pridėti naują irašą? (T/N) ');
readln(a);
end;
clrscr;
end;

procedure redagavimas;
var k : integer;
begin
reset(FA);
writeln('Pasirinkite redagavimo komanda: ');
writeln;
writeln('1. Prideti naują įrašą');
writeln('2. Redaguoti vieną eilutę');
writeln('3. Grizti į pagrindinį meniu');
readln(k);
case k of
 1:redagavimas1;
 2:redagavimas2;
 3:;
 end;
 close(FA);
 clrscr;
 end;

begin
assign(FA,'C:\Users\x\Desktop\vis\II\PĮ\II darbas\New folder\duomenys.txt');
Nr:=0;
while Nr <> 5 do
   begin
  writeln('Pasirinkite komandą: ');
    writeln('1. Failo formatavimas');
    writeln('2. Failo turinio spausdinimas');
    writeln('3. Failo koregavimas');
    writeln('4. Suvestinės spausdinimas');
    writeln('5. Baigti darbą');
    writeln;
    write('Jūsų pasirinkimas: ');
    readln(Nr);
    writeln;
    writeln;
    case Nr of
    1:ivedimas;
    2:Spausdinimo;
    3:redagavimas;
    5:writeln('Viso gero!');
    end;
    end;

end.

Nori pasakyt, kad parases visa sita programa tu nezinai kaip ta uzduoti issprest? :D

Nori pasakyt, kad parases visa sita programa tu nezinai kaip ta uzduoti issprest? :D

Taip, toks ir rašymas, praktiškai copy paste ką dėstytoja ant lentos rašė...