program AlexVerb;
  uses Crt;
  const head='ЙНННННННЛННННЛНННННЛНННННЛННННННЛНННН»';

    opisanie='єIntegerєRealєChar1єChar2єStringєRealє';

      kstrok='МНННННННОННННОНННННОНННННОННННННОНННН№';

     content='є       є    є     є     є      є    є';

      footer='ИНННННННКННННКНННННКНННННКННННННКННННј';

      M=20;
type
z=record
        c: array [1..2] of char;
        d: string[3];
        e: real;
end;

TRec=record
           a: integer;
           b: real;
           v: z;
end;

ptrList=^TList;

TList=record
inf: TRec;
next:ptrList;
end;

var
n:integer;
vibor: byte;
rec: array[1..M] of TRec;

{///////////////////////////////////}
    pList:ptrList;

procedure wait;
begin
writeln;
writeln('Nazhmite lybyu klavishy');
readkey;
end;

procedure CreateList;
var
    p1,p2:ptrList;
    rec: Trec;
begin
 ClrScr;
 writeln(head);
 writeln(opisanie);
 p2:= nil;
for i:=1 to n do
 begin
  gotoXY(1,i*2+1);
  writeln(kstrok);
  writeln(content);
  gotoXY(2,i*2+2);

  readln(rec.a);

  gotoXY(10,i*2+2);
  readln(rec.b);

  gotoXY(15,i*2+2);
  readln(rec.v.c[1]);

  gotoXY(21,i*2+2);
  readln(rec.v.c[2]);

  gotoXY(27,i*2+2);
  readln(rec.v.d);

  gotoXY(34,i*2+2);
  readln(rec.v.e);
     p1^.inf := Rec;
     p1^.next := p2;
     p2 := p1;
end;
  gotoXY(1,i*2+3);
  writeln(footer);
  pList := p2;
 wait;
 end;
end;

procedure ViewList;
var
    p1,pList:ptrList;
    i: integer;

begin
p1:=pList;
while p1<>nil do begin
writeln(p1^.inf.a);
writeln(p1^.inf.b);
writeln(p1^.inf.v.c[1]);
writeln(p1^.inf.v.c[2]);
writeln(p1^.inf.v.d);
writeln(p1^.inf.v.e);
p1:=p1^.next;
end;
end;

procedure DelList;
var
p1,p2,pList:ptrList;
begin
p1:=pList;
while p1<>nil do begin
p2:=p1;
p1:=p1^.next;
dispose(p1);
end;
pList:=nil;
end;

procedure Vvod;
var
 i: integer;
begin
 ClrScr;
 writeln(head);
 writeln(opisanie);
for i:=1 to n do
 begin
  gotoXY(1,i*2+1);
  writeln(kstrok);
  writeln(content);
  gotoXY(2,i*2+2);

  readln(rec[i].a);

  gotoXY(10,i*2+2);
  readln(rec[i].b);

  gotoXY(15,i*2+2);
  readln(rec[i].v.c[1]);

  gotoXY(21,i*2+2);
  readln(rec[i].v.c[2]);

  gotoXY(27,i*2+2);
  readln(rec[i].v.d);

  gotoXY(34,i*2+2);
  readln(rec[i].v.e);
end;
  gotoXY(1,i*2+3);
  writeln(footer);
 wait;
 end;

procedure Vivod;
var
 i: integer;
begin
 ClrScr;
 writeln(head);
 writeln(opisanie);
for i:=1 to n do
 begin
 gotoXY(1,i*2+1);
 writeln(kstrok);
 writeln(content);
 gotoXY(2,i*2+2);
 writeln(rec[i].a);

 gotoXY(10,i*2+2);
 writeln(rec[i].b:1:1);

 gotoXY(15,i*2+2);
 writeln(rec[i].v.c[1]);

 gotoXY(21,i*2+2);
 writeln(rec[i].v.c[2]);

 gotoXY(27,i*2+2);
 writeln(rec[i].v.d);

 gotoXY(34,i*2+2);
 writeln(rec[i].v.e:1:1);
 end;
  gotoXY(1,i*2+3);
  writeln(footer);
wait;
 end;

procedure SaveInFile;
var
 f: file of TRec;
 i: integer;
 rec: TRec;
begin
 ClrScr;
 assign(f,'alexverb.txt');
 rewrite(f);
 writeln(head);
 writeln(opisanie);
for i:=1 to n do
 begin
  gotoXY(1,i*2+1);
  writeln(kstrok);
  writeln(content);

  gotoXY(2,i*2+2);
  readln(rec.a);

  gotoXY(10,i*2+2);
  readln(rec.b);

  gotoXY(15,i*2+2);
  readln(rec.v.c[1]);

  gotoXY(21,i*2+2);
  readln(rec.v.c[2]);

  gotoXY(27,i*2+2);
  readln(rec.v.d);

  gotoXY(34,i*2+2);
  readln(rec.v.e);

  write(f,rec);
 end;
  gotoXY(1,i*2+3);
  writeln(footer);
  close(f);
wait;
end;

procedure ViewFile;
var
 f: file of TRec;
 rec: TRec;
 i: integer;
begin
 ClrScr;
 assign(f,'alexverb.txt');
 reset(f);
 i:=0;
 writeln(head);
 writeln(opisanie);
 while not eof(f) do
  begin
  read(f,rec);
  inc(i);
  gotoXY(1,i*2+1);
  writeln(kstrok);
  writeln(content);

  gotoXY(2,i*2+2);
  writeln(rec.a);

  gotoXY(10,i*2+2);
  writeln(rec.b:1:1);

  gotoXY(15,i*2+2);
  writeln(rec.v.c[1]);

  gotoXY(21,i*2+2);
  writeln(rec.v.c[2]);

  gotoXY(27,i*2+2);
  writeln(rec.v.d);

  gotoXY(34,i*2+2);
  writeln(rec.v.e:1:1);

 end;
 gotoXY(1,i*2+3);
 writeln(footer);
close(f);
wait;
end;

procedure Menu;
begin
 repeat
  repeat
    ClrScr;
    Writeln('1. Vvod dannbIx');
    Writeln('2. Vivod dannbIx');
    Writeln('3. SaveInFile');
    Writeln('4. ViewFile');
    Writeln('5. CreateList');
    Writeln('6. ViewList');
    Writeln('7. DelList');
    Writeln('8. Exit');
    Write('Vash vibor:>');
    Readln(vibor);
  until (vibor>0) and (vibor<9);
  Writeln;
  Write('Vi vibrali: ');
  case vibor of
    1:begin
        Writeln('Vvod massiva');
        writeln('Vvedite chislo strok');
        readln(n);
        Vvod;
      end;
    2:begin
        Writeln('Vivod massiva');
        Vivod;
      end;
    3:begin
        Writeln('SaveInFile');
        writeln('Vvedite chislo strok');
        readln(n);
        SaveInFile;
      end;
    4:begin
        Writeln('ViewFile');
        ViewFile;
      end;
    5:begin
        Writeln('CreateList');
        CreateList;
      end;
    6:begin
        Writeln('ViewList');
        ViewList;
      end;
    7:begin
        Writeln('DelList');
        DelList;
      end;
    end;
 until vibor=8;
end;

begin
Menu;
end.