А можно полный код пожалуйста?

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
const s=1;
var i,j,l1,l2,t:byte;
a:array[1..3,1..3] of real;
k:real;
begin
t:=0;
for i:=1 to 3 do
for j:=1 to 3 do
begin
writeln('a',i,j);
readln(a[i,j]);
end;
for i:=1 to 3 do
begin
k:=a[i,1];
t:=0;
for j:=1 to 3 do
if k<a[i,j] then
begin
k:=a[i,j];
l1:=i;
l2:=j;
end
else
begin
inc(t);
end;
if t=3 then a[i,1]:=s else a[l1,l2]:=s;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(a[i,j]:2:2,' ');
writeln;
end;
readln;
end.