1) Вводится 4 числа. Вывести на экран наивеличайшую из первых цифр

Задача 1.

var
a,i:integer;
ss,max:string;
ar:array[0..3] of string;

procedure val_to_str(a:integer);
begin
str(a,ss);
ar[i]:=copy(ss,1,1);
i:=i+1;
end;

begin
repeat
begin
read(a);
val_to_str(a);
end
until i=4;
max:=ar[0];
for j:integer:=1 to 3 do
begin
if ar[j]gt;max then
max:=ar[j];
end;
writeln(Наивеличайшая цифра высшего разряда равна , max);
end.

Задача 2. 

var matrix:array[1..10,1..5]of integer;
i,j,max_el,max_col, temp:integer;

begin
for i:=1 to 10 do
begin
for j:=1 to 5 do
begin
matrix[i,j]:=random(100);
write (matrix[i,j]:5);
if matrix[i,j]gt;max_el then
begin
max_el:=matrix[i,j];
max_col:=j;
end;
end;
writeln;
end;

writeln(max_el);
writeln(max_col);

for i:=1 to 10 do
begin
temp:=matrix[i,1];
matrix[i,1]:=matrix[i,max_col];
matrix[i,max_col]:=temp;
end;

for i:=1 to 10 do
begin
for j:=1 to 5 do
write (matrix[i,j]:5);

writeln;
end;

end.

Задача 3.

var
a,b,c:integer;

begin
readln(a,b,c);
writeln(a = ,a,; b = ,b,; c = ,c);
writeln(Заменим все значения с подмогою математики!);
a:=a+c;
c:=a-c;
a:=a-c;
b:=b+c;
c:=b-c;
b:=b-c;

writeln(a = ,a,; b = ,b,; c = ,c);
end.