Prakse 2. darbs 2. kurss

program Untitled;
uses crt;
type Persona = record
      height : real;
      name, lastname,date,code,eyes_color,nation,address : string;
      gender : char;
      citizen : boolean;
   end;

var per : Persona; file1:text; str,str2:string; i:integer;
begin


{writeln('Ievadiet personas vardu: ');
readln(per.name);
writeln('Ievadiet personas uzvardu: ');
readln(per.lastname);
writeln('Ievadiet dzimumu (v/s): ');
readln(per.gender);
writeln('Ievadiet dzimsanas datumu: ');
readln(per.date);
writeln('Ievadiet personas kodu: ');
readln(per.code);
writeln('Ievadiet augumu : ');
readln(per.height);
writeln('Ievadiet acu krasu : ');
readln(per.eyes_color);
writeln('Ievadiet tautibu : ');
readln(per.nation);
writeln('Vai ir pilsonis? (true/false) : ');
readln(per.citizen);
writeln('Ievadiet dzivesvietas adresi : ');
readln(per.address);     }


Assign(file1, per.name);
rewrite(file1);
writeln(file1,per.name);
writeln(file1,per.lastname);
writeln(file1,per.date);
writeln(file1,per.code);
writeln(file1,per.height);
writeln(file1,per.eyes_color);
writeln(file1,per.nation);
writeln(file1,per.address);
Close(file1);


clrscr;
reset(file1);
for i:=1 to 2 do readln(file1,str);
write(str, ' ');
readln(file1, str);
writeln(str);
for i:=1 to 5 do readln(file1,str);
writeln(str);
if citizen = true then
begin
for i:=1 to 8 do readln(file1,str);
end;
writeln(str);
for i:=1 to 8 do readln(file1,str);
writeln(str);


readln;
end.