[lurid]

Насть, лови код. Надеюсь сдашь все нормально.





procedure FChange(var f: Myfiletype; FileOpen: boolean);

var

r1, r2:myrec;

a, b: integer;

begin

writeln (' введите номер первой записи');

read( a ); { номер первой записи }

{$i-} seek( f, a ); {$i+} if (ioresult=0) then FileOpen:=TRUE

else begin

MyFileErr:=5; exit;

end;

read(f, rec1); { читаем 1 запись }

writeln (' введите номер второй записи');

read( b ); { номер второй записи }

{$i-} seek( f, B ); {$i+} if (ioresult=0) then FileOpen:=TRUE

else begin

MyFileErr:=5; exit;

end;

read(f, rec2); { читаем 2 запись }

{ и меняем местами ... }

seek( f, a ); write(f, rec2);

seek( f, B ); write(f, rec1);

end;



========================



var f:text;

s,snew:string;

count:integer;

begin

assign(f,Полный путь к файлу:string);

{$i-}

reset(f);

{$i+}

if ioresult<>0 then {файл не существует...};

count:=0;

while not eof(f) do begin

readln(f,s);

count:=count+1;{Переменная count - текущая строка}

snew:='Новое значение';

if count=2 then begin writeln(f,snew);exit;end;

end;

close(f);

end.



P.s. у меня нету паскаля под рукой, ПРОВЕРИТЬ НЕМОГУ но за код уверен, тут трудно ошибится