Текстовые файлы

uses crt;
type
    type_rec=record
    fio:string[15];
    nazvanie:string[20];
    god:word;
end;
 
var
   f_in,f_out:text;
   spis:array[1..1000] of type_rec;
   kol_zap,i:word;
   zap:type_rec;
   key:byte;
   b:array[1..1000] of word;
   y:integer;
 
BEGIN
clrscr;
     assign(f_in,'text.dan');
     reset (f_in);
     i:=0;
     while not Eof(f_in) do
     begin inc(i);
     with spis[i] do
     readln(f_in,fio,nazvanie,god);
     end;
     kol_zap:=i;
writeln('Zapisey:=',kol_zap);
 
assign(f_out,'sor.dan');
rewrite(f_out);
for i:=1 to kol_zap do
with spis[i] do
begin
writeln(f_out,fio:15,nazvanie:20,god);
b[i]:=god;
end;
 
for i:=1 to kol_zap do
with spis[i] do
if (god<1985) or (fio<>'Ivanov..') then
begin
writeln(f_out,fio:15,nazvanie:20,god);
end;
 
repeat
key:=0;
for i:=1 to kol_zap-1 do
with spis[i] do
if b[i]<b[i+1] then
begin
y:=b[i];
b[i]:=b[i+1];
b[i+1]:=y;
key:=1;
end;
until key=0;
writeln('Uporydochenniy massiv');
for i:=1 to kol_zap do
write(b[i]:6);
 
readkey;
END.

uses crt;
type
    type_rec=record
    fio:string[15];
    nazvanie:string[20];
    god:word;
end;
 
var
   f_in,f_out:text;
   spis:array[1..1000] of type_rec;
   c:array[1..100] of string[15];
   m:array[1..100] of string[15];
   x:array[1..100] of string[20];
   s:array[1..100] of word;
   cy:string[15];
   dy:string[20];
   kol_zap,i:word;
   zap:type_rec;
   key:byte;
   b:array[1..1000] of word;
   y,f:integer;
 
BEGIN
clrscr;
     assign(f_in,'text.dan');
     reset (f_in);
     i:=0;
     while not Eof(f_in) do
     begin inc(i);
     with spis[i] do
     readln(f_in,fio,nazvanie,god);
     end;
     kol_zap:=i;
writeln('Zapisey:=',kol_zap);
writeln;
 
assign(f_out,'sor.dan');
rewrite(f_out);
for i:=1 to kol_zap do
with spis[i] do
begin
writeln(fio:15,nazvanie:20,god);
c[i]:=fio;
x[i]:=nazvanie;
b[i]:=god;
end;
writeln;
 
for i:=1 to kol_zap do
if (b[i]<1985) and (x[i]<>'Ivanov..') then
begin
s[i]:=b[i];
m[i]:=c[i];
f:=f+1;
end;
 
repeat
key:=0;
for i:=1 to f do
with spis[i] do
if s[i]<s[i+1] then
begin
y:=s[i];
s[i]:=s[i+1];
s[i+1]:=y;
cy:=m[i];
m[i]:=m[i+1];
m[i+1]:=cy;
dy:=x[i];
x[i]:=x[i+1];
x[i+1]:=dy;
key:=1;
end;
until key=0;
writeln('Uporydochenniy massiv');
for i:=1 to f do
begin
write(m[i]:15,x[i]:20,s[i]:6);
writeln;
end;
readkey;
END.