Информатика-програмирование Домашние задание

program k_10; var a,b:array[1..10] of integer; s:array[1..10] of real; i:integer; max:real; begin randomize; for i:=1 to 10 do begin a[i]:=random(10)+1; s[i]:=a[i]*b[i]/2; b[i]:=random(10)+1; writeln ('a[i]=',a[i]:6,'b[,i,]='b[i]:6,s[i,']=',s[i]:6:2); end; max:=s[1]; for i:=2 to 10 do if s[i]>max then max:=s[i]; for i:=1 to 10 do if s[i]=max then writeln ('i=',i,a=',a[i],b=',b[i],'s=',s[i]); end.у тебя ошибка в 5 строке