Модуль CRT, Вариативные поля, файлы

uses crt;
var s,c,c1:integer;
    f,g:file of integer;
    n,i,j,k,l:integer;
begin
clrscr;
assign(f,'file1');
rewrite(f);
assign(g,'file2');
rewrite(g);
write('Количество чисел n=');
readln(n);
for i:=1 to n do
 begin
  s:=random(10);
  write(f,s);
 end;
clrscr;
writeln('Исходный файл:');
reset(f);
while not eof(f) do
 begin
  read(f,s);
  write(s,' ');
 end;
writeln;
close(f);
reset(f);
k:=0;
i:=0;
while i <= filesize(f)-1-k do{смотри файл сначала до конец минус кол.повторов}
  begin
  seek(f,i);
  read(f,s);{читаем число}
  write(g,s); {пишем его в новый файл}
  j:=i+1;
  while j <=filesize(f)-1-k do{смотрим впереди}
   begin
     seek(f,j);
     read(f,c);
     if c=s then {если такое же}
      begin
       k:=k+1;{считаем повтор}
       for l:=j to filesize(f)-2 do{сдвигаем конец файла вверх,
                                    стирая этот повтор}
        begin
         seek(f,l+1);
         read(f,c1);
         seek(f,l);
         write(f,c1);
        end;
      end
     else j:=j+1;
    end;
   i:=i+1;
 end;
close(f);
writeln('Измененный файл:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,s);
  write(s,' ');
 end;
close(g);
readln
end.

uses crt;
var c:char;
    x,y,k,hx,hy,i,j:integer;
begin
clrscr;
repeat
writeln('Vvedite koordinaty simvola:');
write('x [3-58] =');readln(x);
write('y [3-17] =');readln(y);
until (x>2)and(x<59)and(y>2)and(y<18);
clrscr;
gotoXY(35,2);
writeln('Vyhod Esc');
window(11,3,70,23);
gotoXY(1,1);
write(#201);
for i:=2 to 59 do
write(#205);
write(#187);
for i:=2 to 19 do
 begin
  gotoXY(1,i);
  write(#186);
 end;
gotoXY(1,20);
write(#200);
for i:=2 to 59 do
write(#205);
write(#188);
for i:=2 to 19 do
 begin
  gotoXY(60,i);
  write(#186);
 end;
hx:=1;hy:=1;
repeat
gotoXY(x,y);
write(0);
delay(80);
gotoXY(x,y);
write(' ');
x:=x+hx;
y:=y+hy;
if y=19 then
 begin
   hy:=-1;
   Sound(400);
   delay(50);
   NoSound;
 end
else if y=2 then
 begin
   hy:=1;
   Sound(400);
   delay(50);
   NoSound;
 end
else if x=59 then
 begin
   hx:=-1;
   Sound(400);
   delay(50);
   NoSound;
 end
else if x=3 then
 begin
   hx:=1;
   Sound(400);
   delay(50);
   NoSound;
 end
else if(x=3)and(y=2)then
  begin
   hx:=1;
   hy:=1;
   Sound(400);
   delay(50);
   NoSound;
  end
else if(x=58)and(y=3)then
  begin
   hx:=-1;
   hy:=1;
   Sound(400);
   delay(50);
   NoSound;
  end
else if(x=3)and(y=18)then
  begin
   hx:=1;
   hy:=-1;
   Sound(400);
   delay(50);
   NoSound;
  end
else if(x=58)and(y=18)then
  begin
   hx:=1;
   hy:=1;
   Sound(400);
   delay(50);
   NoSound;
  end;
if keypressed then
c:=readkey;
until c=#27;
end.