Не могу перевести программу с паскаля на дельфи, у меня уже баттхёрт по этому поводу.

Question

Var 
 A: Array[1..50,1..50] Of Byte; 
 m,i,j,sum:Byte; 
Begin 
 Write('Задайте размерность матрицы: '); 
 ReadLn(m); 
 WriteLn('Укажите элементы массива'); 
 For i:=1 To m Do 
 For j:=1 To m Do 
 Begin 
 Write('A[', i, ',', j,']:='); 
 ReadLn(A[i,j]); 
 End; 
 WriteLn('Исходный массив: '); 
 For i:=1 To m Do 
 Begin 
 For j:=1 To m Do 
 Write(A[i,j]:3); 
 WriteLn; 
 End; 
 sum:=0; {Начальное количество квадратиков. } 
 For i:=1 To m-1 Do 
 For j:=1 To m-1 Do 
 If A[i,j]+A[i,j+1]+A[i+1,j]+A[i+1,j+1]=17 Then sum:=sum+1; 
 WriteLn('Количество искомых квадратиков = ',sum); 
End.

Lidia · Accepted Answer

а в чем проблема? у меня все компилится без проблем 
 
uses 
 SysUtils; 
 Var 
A: Array[1..50,1..50] Of Byte; 
m,i,j,sum:Byte; 
begin 
 try 
 { TODO -oUser -cConsole Main : Insert code here } 
 Write('Zadaite razmernost matricy: '); 
ReadLn(m); 
WriteLn('Ukazhite elementi massiva:'); 
For i:=1 To m Do 
For j:=1 To m Do 
Begin 
Write('A[', i, ',', j,']:='); 
ReadLn(A[i,j]); 
End; 
WriteLn('Исходный массив: '); 
For i:=1 To m Do 
Begin 
For j:=1 To m Do 
Write(A[i,j]:3); 
WriteLn; 
End; 
sum:=0; {Начальное количество квадратиков. } 
For i:=1 To m-1 Do 
For j:=1 To m-1 Do 
If A[i,j]+A[i,j+1]+A[i+1,j]+A[i+1,j+1]=17 Then sum:=sum+1; 
WriteLn('Количество искомых квадратиков = ',sum); 
 except 
 on E:Exception do 
 Writeln(E.Classname, ': ', E.Message); 
 end; 
end.