Вот моё не правильное решение вообще вроде
program z1;
var a:array[1..4] of integer;
i:integer;
d:integer;
min:integer;
l,j:integer;
buf:integer;
k:integer;
q:string;
w,e:integer;
begin
writeln('ўўҐ¤ЁвҐ rjk ;eh');
readln(d);
for K:=1 to d do
for i:=1 to d do
begin
writeln('ўўҐ¤ЁвҐ §ў ЁҐ ¦га « ');
readln(q);
writeln('ўўҐ¤ЁвҐ жҐг');
readln(w);
writeln('ўўҐ¤ЁвҐ Є®«-ў® Ї®¤ЇЁйЁЄ®ў');
readln(e);
end;
begin
L:=w*e;
min:=l;
begin
if l<a[l] then min:=l;
buf:=a[i];
a[i]:=a[min];
a[min]:=buf;
end;
for k:=1 to d do
begin
write(l,'');
writeln
end;
writeln(' бЁў ®вб авЁа®ў ');
end;
end.